knitr::opts_chunk$set(echo = TRUE, warning = FALSE)
library(plotly)
library(DT)
library(palmerpenguins)
penguins_graph <- ggplot(data = penguins, aes(x = flipper_length_mm, y = body_mass_g)) +
geom_point(aes(color = species))
penguins_graph
ggplotly(penguins_graph)
That makes a cool interactive plot
datatable(penguins)